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VAX=11 Bliss-32 V 
-Sep-1 DISKSVMSMASTER: cto 
SEXE ane - Call EXTSEXEC from EDTSMACCAL' 
EXECN ! Call a XEC from EDTSMACCA 
MIDENT = 'v04-000' 


le: EXECNOO.BLI Edit: 


RTITLE ‘EDT 
MODULE EDTS 


SZ 


BEGIN 
RE sre Hee to EE ee a ee IONE MO eM 
'® w 
ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . 
is ALL RIGHTS RESERVED. e 
ie THIS SOFTWARE | Is FURNISHED, UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORDANCE WITH THE TERMS SUCH LICENSE AND WITH THE ®* 
ie INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. . 
° 7 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. e 
.* we 
is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * 

® 
ie * 
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'¢¢ 
! FACILITY: EDT -- The DEC Standard Editor 


| ABSTRACT: 


This module proxies a@ path for EDTSMACCAL to call EDTSEXEC 
and get itself reloaded into memory upon return. 


i ENVIRONMENT: Runs at any access mode - AST reentrant 
i AUTHOR: John Sauter, CREATION DATE: 15-Mar-1982 

i MODIFIED BY: 

1- ot - Original. JBS 15-Mar-1982 


- One - Pass back status from edt$$exe_cmd, STS 16-Jul-1982 
- Improve the appearance of the Tisting. JBS 14-Jun-1983 
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EDTSEXECNOO EDTSEXECNOO = Call EDTSEXEC from EDTSMACCAL 16-Sep-1984 18:01 VAX-11 Bliss-32 V4.0-74 Page 2) 

eet Declarations 12-808 - 1 3b 90:38:93 TER SUMCMASTERSCEDT. sac SEXECNOO.BLIs1 ° (2) | 

; 33 } RSBTTL ‘Declarations’ 

3 3g 1 ! TABLE OF CONTENTS: 

; 1! 

_. a 054 #1 

; 56 055 1 REQUIRE ‘EDTSRC: TRAROUNAM'; 

3 57 494 1 

3 58 495 1 FORWARD ROUTINE 

; 59 £38 1 EDTSSEXE_CMD_NOOVERLAY; 

$ 60 Be8 1 

$ 61 498 1! 

; 6¢ Bee 1 ! INCLUDE FILES: 

3 6 280 1! 

>; 664 0501 1 

3 65 05 § 1 REQUIRE ‘EDTSRC:EDTREQ'; 

; 666 06 1 

ie 0638 1! 

3 68 0639 1 ! MACROS: 

; 69 0640 1! 

3 70 0641 1! NONE 

: 7 D642 1 | 

; 7 064 1 ! EQUATED SYMBOLS: 

a. 0644 1 | | 

3 74 0645 1! NONE 

: 75 0646 1 | 

4 76 0647 1 ! OWN STORAGE: 

ee a 0648 1 | | 

3 78 0649 1! NONE 

3 79 0650 1! 

3 80 0651 1 ! EXTERNAL REFERENCES: 

> 81 0652 1 | 

; 82 0653 1! In the routine 
| 
} 
| 
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NOO = Call EDISEXEC from EDISMACCAL 
CMD_NOOVERLAY = call EDTSSEXE_CMD 


RSBTTL 'EDTSSEXE_CMD_NOOVERLAY = call EDTSSEXE_CMD' 
GLOBAL ROUTINE EDTSSEXE_CMD_NOOVERLAY ( 
SOURCE 


! Execute commands 
! New input source 


!o+ 


i FUNCTIONAL DESCRIPTION: 
Call EDTSSEXE_CMD from EDTSMACCAL, reload EDT$MACCAL and return. 
FORMAL PARAMETERS: 
SOURCE new input source 
IMPLICIT INPUTS: 
} NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
: Q - We have seen an EXIT command; EDT$$G_EXITD will be set 
ee ee 
i SIDE EFFECTS: 
NONE 
leu 
BEGIN 
EXTERNAL ROUTINE 


EDTSSEXE_ CMD _NOOVERLAY REF, 


EDTS$LOAB_MATCAL : NOVALUE; ! Make sure module EDTSS$MACCAL 


LOCAL 
EOF _FLAG; 


EOF _FLAG = EDTSSEXE_CMD_NOOVERLAY_REF (.SOURCE); 
i Make sure the module EDT$MACCAL is in memory. That module's call to us is 


EDTS$$LOAD_MACCAL (); 
+ (EOF _FLAG); 


-TITLE EDTSEXECNOO EDTSEXECNOC = Call EDTSEXEC from ED 
-IDENT \V04-000\ 


TSMACCAL 
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! The real routine sseee tal name for overlay analysis) 


exc 
! from the analysis done to construct the overlay tree, as is our call to EDTSSEXE_CMD. 


! of routine EDTSSEXE_CMD_NOOVERLAY 
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EDT ereeNee - Call EDTSEXE 
EDTSSE 


PIC,2 


_REF 
XE_CMD_NOOVERLAY, Save R2 


SHR, 


MATCAL 


oe NOOVERLAY 


LOA 


$ 
$ 
-EDTSCODE ,NOWRT, 


»PSECT 


XE_CMD_NOOVERLAY = ¢ 


E_CMD_NOOVERLAY_REF 


G 
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Routine Base: 


000000006 
000000006 


-EDT$CODE + 0000 


!<BLF /PAGE> 


26 bytes, 


; Routine Size: 


N 7 
EDTSEXECNOO EDTSEXECNOO = Call EDTSEXEC from EDTSMACCAL 16-Sep 4 VAX-11 Bliss-32 V 4-0< 74 5 
Oae 5D 5 EDISECKE CRD _NOOVEREAY = call EDTSSEXE_CMD 14S Sep 138% 99: if: 83 DISKSVMSMASTER: cto T.SRCJEXECNOO.BLI; a9 * (a) 
; «4139 0708 1 END ! TSEXECN 
: 12 0708 of module EDTSEXECNOO 
3 (141 0710 0 ELUDOM 


PSECT SUMMARY 
Name Bytes Attributes 
_EDTSCODE 26 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics | 


: as (re Oe. AE be eee Fe OED Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 0 0 40 00:00.2 
> _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
| 
; COMMAND QUALIFIERS | 
; PLISS/CHECK= CF SELB. INITIAL GPT IAIZE) /NOTRACEBACE/L ISL 188 :E KE CHOO/OB) =08./8 1 ENE CNOD MSRC$:EXECNOO.BLI/UPDATE=(ENH$:EXECNOO | 
. 
Size: 26 code + 0 data bytes 
Run Time: 9 


Lines/CPU Min: 
Lexemes/CPU-Min: 
ponery Used: 52 pages 
Compilation Complete 


00:08 | 
Elapsed Time: 0? 9 7 
12626 
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